(pcomplete-entries): Obey pcomplete-ignore-case.

diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el
index efb5980766d4d5314bdad31fe987a1f7a8a54b91..86d930127b5082934322c86bdebee40880281004 100644 (file)
--- a/lisp/pcomplete.el
+++ b/lisp/pcomplete.el
@@ -711,6 +711,7 @@ If PREDICATE is non-nil, it will also be used to refine the match
 If no directory information can be extracted from the completed
 component, `default-directory' is used as the basis for completion."
   (let* ((name (substitute-env-vars pcomplete-stub))
+         (completion-ignore-case pcomplete-ignore-case)
         (default-directory (expand-file-name
                             (or (file-name-directory name)
                                 default-directory)))